perm filename TEST.F4[NEW,LCS] blob sn#557721 filedate 1981-01-20 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	1	FORMAT(' TYPE 5 LETTERS'/)
C00003 ENDMK
CāŠ—;
1	FORMAT(' TYPE 5 LETTERS'/)
2	FORMAT(A5)
3	FORMAT(1XA5)
4	TYPE 1
	ACCEPT 2,J
	K=J+2
	L=J+256
	N=(L.AND."777777777400).OR."202
	TYPE 3,J,K,L,N
	GO TO 4
	END